home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 February
/
EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso
/
www
/
amitrix
/
awebsv.lha
/
Docs
/
_starttcpscript
< prev
next >
Wrap
Text File
|
1997-09-28
|
1KB
|
52 lines
; Exempelskript för att starta en TCP/IP-stack som inte returnerar
; när uppkopplingen är klar.
;
; Observera att det här skriptet är den första delen, du behöver
; också ändra på filen _starttcpscript2.
;
; För att använda det här skriptet, konfigurera AWeb till att
; använda det som program för "Starta TCP/IP-stack":
; Kommando = (låda)/_starttcpscript
; Argument = (inga)
;
; Se till att du ändrar lådan för _starttcpscript2 nedan till det du
; använder.
; =======================================================================
.key DUMMY/K ; så att vi kan använda <$$>
FailAt 10
; Sätt variabeln till vårt processnummer så att skriptet
; _starttcpscript2 kan avbryta oss om uppkopplingen misslyckades.
SetEnv STARTTCPPROCESS <$$>
; Starta TCP/IP-stacken i ett separat skal
;
; ***********************************************************************
; *** Ändra sökvägen i raden nedan till den sökväg där
; *** _starttcpscript2 kan hittas:
Run Execute AWeb-II:docs/_starttcpscript2
; ***********************************************************************
; Vänta till TCP/IP-biblioteket har "skapats".
FailAt 30
Lab WaitForLib
Wait 2
Version >NIL: "bsdsocket.library"
If WARN
Skip Back WaitForLib
EndIf
; Rensa variabeln som innehåller vårt processnummer så att om
; TCP/IP-stacken misslyckas efter ett tag kommer det andra skriptet
; inte att avbryta någon oskyldig process.
UnSetEnv STARTTCPPROCESS